Class VBEApplication
inherits OLEObject
    dim Version as string
End Class

Class VBE
inherits OLEObject
    dim ActiveCodePane as VBECodePane
    dim ActiveVBProject as VBEVBProject
    dim ActiveWindow as VBEWindow
    dim Addins as VBEAddins
    dim CodePanes as VBECodePanes
    dim CommandBars as variant
    dim Events as VBEEvents
    dim MainWindow as VBEWindow
    dim SelectedVBComponent as VBEVBComponent
    dim VBProjects as VBEVBProjects
    dim Version as string
    dim Windows as VBEWindows
End Class

Class VBEWindow
inherits OLEObject
    dim Caption as string
    dim Collection as VBEWindows
    dim Height as integer
    dim HWnd as integer
    dim Left as integer
    dim LinkedWindowFrame as VBEWindow
    dim LinkedWindows as VBELinkedWindows
    dim Top as integer
    dim Type as integer
    dim VBE as VBE
    dim Visible as boolean
    dim Width as integer
    dim WindowState as integer
    Sub Attach(lWindowHandle_Param as integer)
    Sub Close()
    Sub Detach()
    Sub SetFocus()
    Sub SetKind(eKind_Param as integer)
End Class

Class VBEWindows_old
inherits OLEObject
    dim Count as integer
    dim Parent as VBEApplication
    dim VBE as VBE
    Function Item(index_Param as variant) as VBEWindow
End Class

Class VBEWindows
inherits OLEObject
    dim Count as integer
    dim Parent as VBEApplication
    dim VBE as VBE
    Function CreateToolWindow(AddInInst_Param as VBEAddIn, ProgId_Param as string, Caption_Param as string, GuidPosition_Param as string, byref DocObj_Param as OLEObject) as VBEWindow
    Function Item(index_Param as variant) as VBEWindow
End Class

Class VBELinkedWindows
inherits OLEObject
    dim Count as integer
    dim Parent as VBEWindow
    dim VBE as VBE
    Sub Add(Window_Param as VBEWindow)
    Function Item(index_Param as variant) as VBEWindow
    Sub Remove(Window_Param as VBEWindow)
End Class

Class VBEEvents
inherits OLEObject
    Function CommandBarEvents(CommandBarControl_Param as OLEObject) as VBECommandBarEvents
    Function ReferencesEvents(VBProject_Param as VBEVBProject) as VBEReferencesEvents
End Class

Class VBEReferencesEvents
inherits OLEObject
End Class

Class VBECommandBarEvents
inherits OLEObject
End Class

Class VBEProjectTemplate
inherits OLEObject
    dim Application as VBEApplication
    dim Parent as VBEApplication
End Class

Class VBEVBProject_Old
inherits OLEObject
    dim Application as VBEApplication
    dim Collection as VBEVBProjects
    dim Description as string
    dim HelpContextID as integer
    dim HelpFile as string
    dim Mode as integer
    dim Name as string
    dim Parent as VBEApplication
    dim Protection as integer
    dim References as VBEReferences
    dim Saved as boolean
    dim VBComponents as VBEVBComponents
    dim VBE as VBE
End Class

Class VBEVBProject
inherits OLEObject
    dim Application as VBEApplication
    dim BuildFileName as string
    dim Collection as VBEVBProjects
    dim Description as string
    dim FileName as string
    dim HelpContextID as integer
    dim HelpFile as string
    dim Mode as integer
    dim Name as string
    dim Parent as VBEApplication
    dim Protection as integer
    dim References as VBEReferences
    dim Saved as boolean
    dim Type as integer
    dim VBComponents as VBEVBComponents
    dim VBE as VBE
    Sub MakeCompiledFile()
    Sub SaveAs(FileName_Param as string)
End Class

Class VBEVBProjects_Old
inherits OLEObject
    dim Count as integer
    dim Parent as VBE
    dim VBE as VBE
    Function Item(index_Param as variant) as VBEVBProject
End Class

Class VBEVBProjects
inherits OLEObject
    dim Count as integer
    dim Parent as VBE
    dim VBE as VBE
    Function Add(Type_Param as integer) as VBEVBProject
    Function Item(index_Param as variant) as VBEVBProject
    Sub Remove(lpc_Param as VBEVBProject)
End Class

Class VBESelectedComponents
inherits OLEObject
    dim Application as VBEApplication
    dim Count as integer
    dim Parent as VBEVBProject
    Function Item(index_Param as integer) as VBEComponent
End Class

Class VBEComponents
inherits OLEObject
    dim Application as VBEApplication
    dim Count as integer
    dim Parent as VBEVBProject
    dim VBE as VBE
    Function Add(ComponentType_Param as integer) as VBEComponent
    Function Import(FileName_Param as string) as VBEComponent
    Function Item(index_Param as variant) as VBEComponent
    Sub Remove(Component_Param as VBEComponent)
End Class

Class VBEVBComponents_Old
inherits OLEObject
    dim Count as integer
    dim Parent as VBEVBProject
    dim VBE as VBE
    Function Add(ComponentType_Param as integer) as VBEVBComponent
    Function Import(FileName_Param as string) as VBEVBComponent
    Function Item(index_Param as variant) as VBEVBComponent
    Sub Remove(VBComponent_Param as VBEVBComponent)
End Class

Class VBEVBComponents
inherits OLEObject
    dim Count as integer
    dim Parent as VBEVBProject
    dim VBE as VBE
    Function Add(ComponentType_Param as integer) as VBEVBComponent
    Function AddCustom(ProgId_Param as string) as VBEVBComponent
    Function Import(FileName_Param as string) as VBEVBComponent
    Function Item(index_Param as variant) as VBEVBComponent
    Sub Remove(VBComponent_Param as VBEVBComponent)
End Class

Class VBEComponent
inherits OLEObject
    dim Application as VBEApplication
    dim IsDirty as boolean
    dim Name as string
    dim Parent as VBEComponents
End Class

Class VBEVBComponent_Old
inherits OLEObject
    dim CodeModule as VBECodeModule
    dim Collection as VBEVBComponents
    dim Designer as OLEObject
    dim HasOpenDesigner as boolean
    dim Name as string
    dim Properties as VBEProperties
    dim Saved as boolean
    dim Type as integer
    dim VBE as VBE
    Sub Activate()
    Function DesignerWindow() as VBEWindow
    Sub Export(FileName_Param as string)
End Class

Class VBEVBComponent
inherits OLEObject
    dim CodeModule as VBECodeModule
    dim Collection as VBEVBComponents
    dim Designer as OLEObject
    dim DesignerID as string
    dim HasOpenDesigner as boolean
    dim Name as string
    dim Properties as VBEProperties
    dim Saved as boolean
    dim Type as integer
    dim VBE as VBE
    Sub Activate()
    Function DesignerWindow() as VBEWindow
    Sub Export(FileName_Param as string)
End Class

Class VBEProperty
inherits OLEObject
    dim Application as VBEApplication
    dim Collection as VBEProperties
    dim Name as string
    dim NumIndices as integer
    dim Object_ as OLEObject
    dim Parent as VBEProperties
    dim Value as variant
    dim VBE as VBE
    Function IndexedValue(Index1_Param as variant, Index2_Param as variant, Index3_Param as variant, Index4_Param as variant) as variant
End Class

Class VBEProperties
inherits OLEObject
    dim Application as VBEApplication
    dim Count as integer
    dim Parent as OLEObject
    dim VBE as VBE
    Function Item(index_Param as variant) as VBEProperty
End Class

Class VBEAddins
inherits OLEObject
    dim Count as integer
    dim Parent as OLEObject
    dim VBE as VBE
    Function Item(index_Param as variant) as VBEAddIn
    Sub Update()
End Class

Class VBEAddIn
inherits OLEObject
    dim Collection as VBEAddins
    dim Connect as boolean
    dim Description as string
    dim Guid as string
    dim Object_ as OLEObject
    dim ProgId as string
    dim VBE as VBE
End Class

Class VBECodeModule
inherits OLEObject
    dim CodePane as VBECodePane
    dim CountOfDeclarationLines as integer
    dim CountOfLines as integer
    dim Name as string
    dim Parent as VBEVBComponent
    dim VBE as VBE
    Sub AddFromFile(FileName_Param as string)
    Sub AddFromString(String_Param as string)
    Function CreateEventProc(EventName_Param as string, ObjectName_Param as string) as integer
    Sub DeleteLines(StartLine_Param as integer, Count_Param as integer)
    Function Find(Target_Param as string, byref StartLine_Param as integer, byref StartColumn_Param as integer, byref EndLine_Param as integer, byref EndColumn_Param as integer, WholeWord_Param as boolean, MatchCase_Param as boolean, PatternSearch_Param as boolean) as boolean
    Sub InsertLines(Line_Param as integer, String_Param as string)
    Function Lines(StartLine_Param as integer, Count_Param as integer) as string
    Function ProcBodyLine(ProcName_Param as string, ProcKind_Param as integer) as integer
    Function ProcCountLines(ProcName_Param as string, ProcKind_Param as integer) as integer
    Function ProcOfLine(Line_Param as integer, byref ProcKind_Param as integer) as string
    Function ProcStartLine(ProcName_Param as string, ProcKind_Param as integer) as integer
    Sub ReplaceLine(Line_Param as integer, String_Param as string)
End Class

Class VBECodePanes
inherits OLEObject
    dim Count as integer
    dim Current as VBECodePane
    dim Parent as VBE
    dim VBE as VBE
    Function Item(index_Param as variant) as VBECodePane
End Class

Class VBECodePane
inherits OLEObject
    dim CodeModule as VBECodeModule
    dim CodePaneView as integer
    dim Collection as VBECodePanes
    dim CountOfVisibleLines as integer
    dim TopLine as integer
    dim VBE as VBE
    dim Window as VBEWindow
    Sub GetSelection(byref StartLine_Param as integer, byref StartColumn_Param as integer, byref EndLine_Param as integer, byref EndColumn_Param as integer)
    Sub SetSelection(StartLine_Param as integer, StartColumn_Param as integer, EndLine_Param as integer, EndColumn_Param as integer)
    Sub Show()
End Class

Class VBEReferences
inherits OLEObject
    dim Count as integer
    dim Parent as VBEVBProject
    dim VBE as VBE
    Function AddFromFile(FileName_Param as string) as VBEReference
    Function AddFromGuid(Guid_Param as string, Major_Param as integer, Minor_Param as integer) as VBEReference
    Function Item(index_Param as variant) as VBEReference
    Sub Remove(Reference_Param as VBEReference)
End Class

Class VBEReference
inherits OLEObject
    dim BuiltIn as boolean
    dim Collection as VBEReferences
    dim Description as string
    dim FullPath as string
    dim Guid as string
    dim IsBroken as boolean
    dim Major as integer
    dim Minor as integer
    dim Name as string
    dim Type as integer
    dim VBE as VBE
End Class

